home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / flashdoc.lzh / MASTER.DO < prev    next >
Text File  |  1992-02-21  |  2KB  |  113 lines
  1. >** - top of file -|
  2. >**
  3.  
  4. master.do V. 6.1.2 - 02/21/92.
  5.  
  6. By Al Fasoldt.
  7.  
  8. This script is offered as an example of a complicated master 
  9. script -- one that runs all other DO scripts. It may be useful 
  10. as a way of showing how variables can be passed among different 
  11. DO files.
  12.  
  13. You will notice that one of the functions of this script is to 
  14. run a DO file that exchanges notes and files with my brother 
  15. Bob. We have done this since 1982 or 1983, first on small Ataris 
  16. and then on our STs. Xmodem transfers are handled remotely and 
  17. automatically.
  18.  
  19. |
  20.  
  21. >op e:\flash\do\setpath.do|
  22. >if op cd e:\flash\do\|
  23. >jmp setpath|
  24. >op p:\setpath.do|>** no HD? Try the RD.|
  25. >if op cd p:\|
  26. >jmp setpath|
  27. >cd a:\do\|>** use this path as a last resort.|
  28. >L: setpath|
  29. >type " |SETPATH.DO located...||"|
  30. >DO SETPATH.DO|
  31. >cd $R|>** this is set by setpath.do.|
  32. >WT 03:20:00|
  33. >L: START|
  34. >$N|>** set later if call to Bob goes thru.|
  35. >L: no_null|
  36. >type Executing $QRESET|
  37. >type|
  38. >type|
  39. >DO $QRESET.DO|
  40. >RE 1|
  41. ATZ|
  42. >L: answring|
  43. >$X|
  44. >DO ANSWRING.DO|
  45. >ifi $X "carrier" jmp runxter|
  46. >ifi $X "no data" jmp makecalls|
  47. >ifi $T "03:" jmp makecalls|
  48. >jmp answring|
  49. >L: runxter|
  50. >DO XTERNAL.DO|
  51. >cd p:\|
  52. >pa 2|
  53. ATZ|
  54. >pa 2|
  55. >ifi $U "tobob.do" jmp tobob_exter|
  56. >jmp answring|
  57. >L: makecalls|
  58. >WT 03:27:00|
  59. >DO $QRESET.DO|
  60. >type|
  61. >type Executing $QMINIDATE.DO|
  62. >type|
  63. >DO $QMINIDATE.DO|
  64. ATZ|
  65. >PA 2|
  66. >RE 1|
  67. >type|
  68. >type Executing $QFROMBOB|
  69. >type|
  70. >ba 24|
  71. >DO $QFROMBOB.DO|
  72. >DO $QRESET.DO|
  73. >RE 1|
  74. ATZ|
  75. >PA 30|
  76. >type|
  77. >type Executing $QTOBOB|
  78. >type|
  79. >ba 24|
  80. ATZ|
  81. >DO $QTOBOB.DO|
  82. >$N|>** call status variable; see TOBOB.DO|
  83. >PA 2|
  84. >DO $QRESET.DO|
  85. >pa 2|
  86. >DO $QBULLETIN.DO|
  87. >pa 2|
  88. >DO $QHJUPLOAD.DO|
  89. >RE 1|
  90. >ba 24|
  91. ATZ|
  92. >DO $QBACKUPDO.DO|
  93. >pa 10|
  94. >do $Qbakupstw.do|
  95. >pa 10|
  96. >do $Qbakupaut.do|
  97. >pa 10|
  98. >do $Qreceive.do|
  99. >** |
  100. >CA CL|
  101. >type  |
  102. >type $X|
  103. >cd $R|
  104. >JMP START|
  105. >END|
  106. >L: QUIT|
  107. >HG|
  108. ATZ|
  109. >PA 2|
  110. >EXIT|
  111. >end|
  112. >** end|
  113.